home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / Extras / SysGen / MAKEASSEM < prev    next >
Encoding:
Text File  |  1991-06-05  |  660 b   |  51 lines
  1. \
  2. \ 00001 14-may-90 mdh LoadJForth files now in jf:
  3.  
  4.  
  5. include? $interpret  jf:string-interpret  \ 00001
  6. include? module jf:module  \ 00001
  7.  
  8.  
  9. .NEED assem
  10.       module assem
  11. .THEN
  12.  
  13.  
  14. ' assem M.LOADED @ .IF
  15.  
  16.     detachmodule ASSEM
  17.  
  18. .THEN
  19.  
  20.  
  21. only FORTH definitions
  22.  
  23.  
  24. makeass? @
  25.  
  26. .IF
  27.  
  28.     40 MakeModule ASSEM
  29.  
  30.     include jf:ASM.ref  \ 00001
  31.     include jf:asm  \ 00001
  32.     include jf:Forward-ASM  \ 00001
  33.  
  34.     cr ." Writing MOD:ASSEM.MOD" cr cr
  35.  
  36.     SealModule ASSEM  detachmodule ASSEM
  37.  
  38. .THEN
  39.  
  40. \
  41. \ Module installed, build interface to it...
  42. \
  43.  
  44.  
  45. WillGet  ASSEM CODE
  46. WillGet  ASSEM ;CODE   immediate
  47. WillGet  ASSEM ASM
  48. \ WillHide ASSEM ASM
  49. \ WillHide ASSEM END-CODE
  50.  
  51.